home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / education / e077.dms / e077.adf / GRAVSIM / GRAVSIM.C < prev    next >
C/C++ Source or Header  |  1991-07-12  |  41KB  |  1,379 lines
  1. /*  
  2.  
  3.                  T H E        G R A V I T Y      S I M U L A T O R 
  4.                  -------------------------------------------------
  5.  
  6.    HISTORY:
  7.    =======
  8.  
  9.      Here is a neat little project that started out as a ONE screen long 
  10.    C program to simulate gravitational attraction amongst planets. A friend
  11.    and I thought of the idea for the program one day and we decided to write it.
  12.    
  13.    Originally, you had to recompile the ENTIRE program to change the parameters
  14.    that govern , gravity, velocity, mass etc.!!!
  15.  
  16.    Then I decided to allow it to read the parameters from an input file ! (WOW!)
  17.  
  18.    Until many months later ...  
  19.  
  20.       I decided to use the idea in my Computer Graphics Animation project at
  21.    Adelaide Uni. What came next was 2 weeks of solid hacking to produce a program 
  22.    that was MUCH EASIER to interact with !
  23.  
  24.       This is my first really USEFUL program I have written, I hope you like it !.
  25.  
  26.  
  27.       By the way I have gone to GREAT PAINS to make this C program as READABLE
  28.    as possible to help all those new C hackers out there! 
  29.  
  30.       I just wish there were more programs as readable as this when I go my
  31.    Amiga 1000 2 years ago!. 
  32.      
  33.  
  34.    THANKS:
  35.    =======
  36.     
  37.       Special thanks must go to my friend ROBERT WOZNIAK, who designed the
  38.     ORIGINAL formulae ( of which I have improved slightly ) that govern the 
  39.     planetary motion and to Michael Portmann, who supplied the idea of how to 
  40.     enter the mass of the planets via mouse.
  41.  
  42.  
  43.  
  44.     Title:        THE GRAVITY SIMULATOR.  Vr 1.50
  45.  
  46.  
  47.     Program by:   Richard Frost (C) 1988,1989. 
  48.                   Adelaide, South Australia, Australia.
  49.                   (The Grand Prix State!).
  50.  
  51.                   All code & I/O correct on:  10th August 1988
  52.                   Final Menu Interface Correct on: 6th August 1988 
  53.                   
  54.                   Additions: Loading & saving files & new project menu,
  55.                              November 24th 1988.
  56.  
  57.                              Status Bar on Screen Title during RECORD mode,
  58.                              May 20th 1989.
  59.  
  60.                              Coloured Paths implemented succesfully on
  61.                              May 21st, 3.30 AM. 
  62.                              (Yes AM! thats when REAL programmers work!!! )
  63.                                 
  64.                                 
  65.                   Bug Fixes: Loading & saving files fixed on 29th Jan 1989.
  66.  
  67. */
  68. #include <stdio.h>      
  69. #include <exec/types.h>
  70. #include <exec/tasks.h>
  71. #include <exec/libraries.h>
  72. #include <exec/devices.h>
  73. #include <devices/keymap.h>
  74. #include <graphics/copper.h>
  75. #include <graphics/display.h>
  76. #include <graphics/gfxbase.h>
  77. #include <graphics/text.h>
  78. #include <graphics/view.h>
  79. #include <graphics/gels.h>
  80. #include <graphics/regions.h>
  81. #include <hardware/blit.h>
  82. #include <intuition/intuition.h>
  83. #include <intuition/intuitionbase.h>
  84.  
  85.  
  86. #define XMAX 639
  87. #define XMIN 0
  88. #define YMAX 512
  89. #define YMIN 11
  90.  
  91. #define spriteXMAX 649
  92. #define spriteXMIN -15
  93. #define spriteYMAX 530
  94. #define spriteYMIN -10
  95.  
  96. #define SCALE_FACTOR 128
  97.  
  98. #define SCREEN_WIDTH XMAX+1         
  99.  
  100. #define SCREEN_HEIGHT YMAX+1      
  101. #define SCREEN_BITPLANES  2      /* have 4 colours  */
  102.                 
  103. #define StrGad  0       /* Gadget Label used in the requester */
  104.  
  105. #define PROJECT_MENU 0             /* Labels used for menu item events */ 
  106. #define   NEW_ITEM 0           
  107. #define   LOAD_ITEM 1 
  108. #define   SAVE_ITEM 2
  109. #define   QUIT_ITEM  3
  110.  
  111. #define PLANETS_MENU 1
  112. #define   PLACEPLANET_ITEM 0
  113. #define   REMOVEPLANET_ITEM 1
  114. #define   SETVELOCITY_ITEM 2
  115. #define   SETMASS_ITEM 3
  116. #define   PATHS_ITEM 4
  117.  
  118.  
  119. #define ANIMATION_MENU 2
  120. #define   STARTANIM_ITEM 0
  121. #define   STOPANIM_ITEM 1
  122. #define   RESTARTANIM_ITEM 2
  123.  
  124. #define RECORDER_MENU 3
  125. #define    RECORDER_ON_ITEM 0
  126. #define    RECORDER_OFF_ITEM 1
  127. #define    PLAYBACK_ITEM 2
  128. #define    PLAYBACKSPEED_ITEM 3 
  129. #define               FAST_ITEM 0 
  130. #define               MEDIUM_ITEM 1 
  131. #define               SLOW_ITEM 2 
  132.             
  133.  
  134.  
  135.  
  136.                     /* Flags to indicate coordinates types  */
  137.  
  138.  
  139.  
  140. #define NewCoord 0    /* Indicates the mouse coordinate x,y is
  141.                          to be used in rubber banding */
  142.                          
  143.  
  144. #define StartCoord 1  /* The start coordinate for the
  145.                          velocity vector */
  146.  
  147.                      
  148. #define EndCoord 2    /* The end coordinate for the velocity vector.*/
  149.  
  150.  
  151. extern struct Screen *OpenScreen();
  152. extern struct Library  *OpenLibrary();
  153. extern struct Window *OpenWindow();
  154. extern struct Message *GetMsg();
  155.  
  156. struct Library *IntuitionBase;
  157. struct Library *GfxBase;
  158. struct Window  *NoBorder;
  159. struct Screen *MyScreen;
  160. struct IntuiMessage *message;
  161.  
  162. #define  MAXplanets 6;   /* MAXimum number of planets on the screen */
  163.                         
  164.                           /* Various action flags */
  165.  
  166. BOOL PLACEPLANET = FALSE;
  167. BOOL REMOVEPLANET = FALSE;
  168. BOOL SETVELOCITY = FALSE;
  169. BOOL SETMASS = FALSE;
  170. BOOL RECORD = FALSE;
  171. BOOL COMPUTEANIM = FALSE;
  172. BOOL PLANETPATH = TRUE;
  173. BOOL COLOURPATHS = TRUE;
  174.  
  175.  
  176. char Default_Title[] = " THE GRAVITY SIMULATOR V1.50             By Richard Frost. © 1988, 1989",
  177.      Stats_Title[80];
  178.      
  179.      
  180.  
  181. SHORT PenColour =1;
  182. int PlanetNum = 0;  /* Number of planets currently on the screen */  
  183.                     /* ranges from 1..6 */
  184.  
  185.  
  186. /* include all the menu defns. */
  187.  
  188. #include "GravSim.h"
  189.  
  190.  
  191. /* sprite.h include. I could not be bothered */
  192. /* making a new pre-include file just for this! */
  193.  
  194. #ifndef GRAPHICS_SPRITE_H
  195. #define GRAPHICS_SPRITE_H
  196. struct SimpleSprite
  197. {
  198.     UWORD *posctldata;
  199.     UWORD height;
  200.     UWORD   x,y;    /* current position */
  201.     UWORD   num;
  202. };
  203. #endif
  204.  
  205.  
  206.  
  207. /* ======================== Planet Sprite Definition ======================== */
  208.  
  209. UWORD PlanetData1[12] = {
  210.         0x0000,0x0000,
  211.         0x2000,0x3000,
  212.         0x4800,0x7000,
  213.         0x5800,0x6000,
  214.         0x1000,0x2000,
  215.         0x0000,0x0000             
  216. };
  217.  
  218. UWORD PlanetData2[12] = {
  219.         0x0000,0x0000,
  220.         0x2000,0x3000,
  221.         0x4800,0x7000,
  222.         0x5800,0x6000,
  223.         0x1000,0x2000,
  224.         0x0000,0x0000             
  225. };
  226. UWORD PlanetData3[12] = {
  227.         0x0000,0x0000,
  228.         0x2000,0x3000,
  229.         0x4800,0x7000,
  230.         0x5800,0x6000,
  231.         0x1000,0x2000,
  232.         0x0000,0x0000             
  233. };
  234. UWORD PlanetData4[12] = {
  235.         0x0000,0x0000,
  236.         0x2000,0x3000,
  237.         0x4800,0x7000,
  238.         0x5800,0x6000,
  239.         0x1000,0x2000,
  240.         0x0000,0x0000             
  241. };
  242. UWORD PlanetData5[12] = {
  243.         0x0000,0x0000,
  244.         0x2000,0x3000,
  245.         0x4800,0x7000,
  246.         0x5800,0x6000,
  247.         0x1000,0x2000,
  248.         0x0000,0x0000             
  249. };
  250. UWORD PlanetData6[12] = {
  251.         0x0000,0x0000,
  252.         0x2000,0x3000,
  253.         0x4800,0x7000,
  254.         0x5800,0x6000,
  255.         0x1000,0x2000,
  256.         0x0000,0x0000             
  257. };
  258.  
  259. struct SimpleSprite PlanetSprite[7];   /* Array of sprite definitions */
  260.  
  261.                    /* number of sprite moves stored: */
  262.  
  263. #define FILMLENGTH 6999 
  264.                           /* arrays for movie */
  265.  
  266. SHORT MoviePlanet[FILMLENGTH],   /* the number of the planet for this data */
  267.       MovieScreenX[FILMLENGTH],  /* screen coordinates for this planet sprite */
  268.       MovieScreenY[FILMLENGTH];
  269.  
  270. int frame = 0;  /* the current frame position of the movie */
  271. int DelayFactor = 0;
  272.  
  273. float X[7],     /* X coordinate of the planet in world coordinates */
  274.       Y[7],     /* Y coordinate of the planet in world coordinates */
  275.       Mass[7],     /* The MASS of the planet */
  276.       Vx[7],    /* The X velocity */
  277.       Vy[7],    /* The Y velocity */
  278.  
  279.       tempX[7],     /* temporary variables used in the restart action */
  280.       tempY[7],    
  281.       tempMass[7],    
  282.       tempVx[7],    
  283.       tempVy[7];   
  284.  
  285. double sqrt();
  286.  
  287.               /* Macro to Display the status bar on the screen title */
  288.  
  289. #define DisplayStats(c)  sprintf(Stats_Title,"RECORDING SIMULATION...  Maximum Frame: %-4d   Current Frame: %-4d",FILMLENGTH+1,c);\
  290.                          SetWindowTitles(NoBorder,-1,Stats_Title);
  291.                                 
  292. #define RestoreTitle() SetWindowTitles(NoBorder,-1,Default_Title)
  293.  
  294. /* ======================================================================== */
  295. VOID CloseUpShop()      /* Close down Screens, windows & menus.. */
  296. {
  297.   int i;
  298.  
  299.    /* free up the sprites .. */
  300.  
  301.    for (i = 1 ; i <= 6 ; i++)
  302.      FreeSprite(i);
  303.  
  304.    ClearMenuStrip(NoBorder);
  305.    CloseWindow(NoBorder);
  306.    CloseScreen(MyScreen);
  307. }
  308. /* ======================================================================== */
  309. VOID OpenAll()
  310. {
  311.   IntuitionBase = (struct Library *) OpenLibrary("intuition.library",0L);
  312.   if (IntuitionBase == NULL)
  313.     exit(FALSE);
  314.         
  315.   GfxBase =  (struct Library *) OpenLibrary("graphics.library",0L);
  316.   if (GfxBase == NULL)
  317.     exit(FALSE);
  318. }
  319. /* ======================================================================== */
  320. VOID ClrScreen()
  321. {
  322.  struct RastPort *r;
  323.  
  324.  r= NoBorder->RPort;
  325.  SetAPen(r,0);
  326.  RectFill(r,0,0,XMAX,YMAX);
  327.  SetAPen(r,PenColour);
  328. }
  329. /* ======================================================================== */
  330. VOID  SetUpFrontEnd()    /*  Set up:  Screen,Menus,Gadgets Requesters etc.  */
  331. {
  332.  UWORD i,
  333.      red,green,blue,
  334.      colour_reg;
  335.  UWORD *PlanetData_ptr;
  336.  USHORT SpriteNum;
  337.  SHORT s_id;
  338.  int delay;
  339.  
  340. struct ViewPort *Vp;
  341.  
  342.  /* POWER WINDOWS doesn't know anything about PAL so I have to REMIND IT ..*/
  343.  
  344.  /* Uncomment the following line IF Power Windows has a 640*200 screen */
  345.  
  346.  /* NewScreenStructure.ViewModes = NewScreenStructure.ViewModes + LACE; */
  347.  
  348.  NewScreenStructure.Width = NewWindowStructure1.Width = SCREEN_WIDTH;
  349.  NewScreenStructure.Height = NewWindowStructure1.Height = SCREEN_HEIGHT;
  350.  
  351.  
  352.  MyScreen = OpenScreen(&NewScreenStructure); /* Try to create the screen */
  353.  
  354.  if (MyScreen != NULL) 
  355.    {
  356.      NewWindowStructure1.Screen = MyScreen;     /* assign screen pointer to the window */
  357.      NoBorder =OpenWindow(&NewWindowStructure1);
  358.      SetMenuStrip(NoBorder,&Menu1);     /*   Open up the Menus !   */
  359.      LoadRGB4(&MyScreen->ViewPort,Palette,4);
  360.  
  361.      /* Set up the colour palette for the sprites */
  362.  
  363.      for (colour_reg = 16 ; colour_reg < 32 ; colour_reg += 4 )
  364.        {
  365.          SetRGB4(&MyScreen->ViewPort,colour_reg,0,0,0);
  366.          SetRGB4(&MyScreen->ViewPort,colour_reg+1,8,6,4);
  367.          SetRGB4(&MyScreen->ViewPort,colour_reg+2,10,7,5);
  368.          SetRGB4(&MyScreen->ViewPort,colour_reg+3,13,9,6);
  369.        }
  370.  
  371.      Vp = &MyScreen->ViewPort;
  372.         
  373.  
  374.     /* See if we can allocate the 6 sprites first ... */
  375.  
  376.     for (SpriteNum = 1; SpriteNum <= 6 ; SpriteNum++)
  377.        {
  378.  
  379.          /* Set the mass of that planet #spritenum = 0 */
  380.  
  381.         Mass[SpriteNum] = 0;
  382.  
  383.         if ( (s_id = GetSprite(&(PlanetSprite[SpriteNum]),SpriteNum))  !=  -1  )
  384.           {
  385.  
  386.            /* if we can allocate the sprite... */
  387.            /* Initialize the planet sprite (x,y) pos ... */
  388.                 
  389.            X[SpriteNum] = s_id * 70 * SCALE_FACTOR;
  390.            Y[SpriteNum] = 600 * SCALE_FACTOR;
  391.            Mass[SpriteNum] = 0;
  392.            PlanetSprite[SpriteNum].x =  s_id * 70 ;
  393.            PlanetSprite[SpriteNum].y = 600;
  394.            PlanetSprite[SpriteNum].height = 4;
  395.  
  396.            /* For some strange reason the Amiga doesn't like having 
  397.               multiple sprites sharing the same image structure !!!!
  398.  
  399.               WHY is this !!!!!!!!!!!!!!!!!!!!?????
  400.  
  401.               Thus I have declared each structure separately and the switch
  402.               below will ensure the pointer is pointing to the correct
  403.               one for sprite # SpriteNum */
  404.  
  405.            switch(SpriteNum)
  406.             {
  407.               case 1: PlanetData_ptr = PlanetData1;
  408.                       break;
  409.               case 2: PlanetData_ptr = PlanetData2;
  410.                       break;
  411.               case 3: PlanetData_ptr = PlanetData3;
  412.                       break;
  413.               case 4: PlanetData_ptr = PlanetData4;
  414.                       break;
  415.               case 5: PlanetData_ptr = PlanetData5;
  416.                       break;
  417.               case 6: PlanetData_ptr = PlanetData6;
  418.                       break;
  419.  
  420.             }
  421.  
  422.            /* Display the sprite out of the viewing area */
  423.            /* so that when a user MAKES a planet, only a sprite */
  424.            /* repositioning is required. */
  425.  
  426.            ChangeSprite(Vp,&(PlanetSprite[SpriteNum]),PlanetData_ptr);
  427.  
  428.           }
  429.         else
  430.           printf("CANNOT ALLOCATE SPRITE #%ld\n",(LONG)(SpriteNum) );
  431.  
  432.        } /* end for loop */
  433.  
  434.    }
  435.  else
  436.    {
  437.      printf("CANT OPEN HIRES SCREEN!!!\n");
  438.      exit(FALSE);
  439.    }
  440. }
  441.  
  442.  
  443. /* ======================================================================== */
  444. SHORT absolute(val)
  445. SHORT val;
  446. { 
  447.   if (val <0) 
  448.     return(-val);
  449.   else
  450.     return(val);
  451. }    
  452. /* ======================================================================== */
  453.  
  454. VOID SetVelocityVector(pnum,x,y,stateflag)
  455. LONG pnum,x,y,stateflag;
  456. {
  457.    /* These variables are not destroyed on block exit
  458.       and are used to keep track of what state the program is in */
  459.  
  460.   static LONG Xstart,Ystart,   
  461.               Xold,Yold,planetnumber;
  462.  
  463.   switch (stateflag)
  464.    {
  465.                       
  466.      case NewCoord:   if ((Xold != x) || (Yold != y))
  467.                         {
  468.                           /* erase OLD line using COMPLEMENT mode*/
  469.  
  470.                           Move(NoBorder->RPort,Xstart,Ystart);
  471.                           Draw(NoBorder->RPort,Xold,Yold);
  472.                            
  473.                           /* Draw the new line */
  474.  
  475.                           Move(NoBorder->RPort,Xstart,Ystart);
  476.                           Draw(NoBorder->RPort,x,y);  
  477.  
  478.                           /* Remember where these coordinates are 
  479.                              so we can erase this line when the Mouse moves */
  480.  
  481.                           Xold = x; 
  482.                           Yold = y; 
  483.                         } break;    
  484.  
  485.      case StartCoord: /* Store the start point and old points */ 
  486.  
  487.                       planetnumber = pnum;
  488.  
  489.                       Xstart = x; 
  490.                       Ystart = y;
  491.                       Xold = x + (long)Vx[planetnumber];
  492.                       Yold = y + (long)Vy[planetnumber];
  493.  
  494.                       Move(NoBorder->RPort,Xstart,Ystart);
  495.                       Draw(NoBorder->RPort,Xold,Yold);
  496.  
  497.                       break;
  498.  
  499.      case EndCoord:   /* The user released the LEFT mouse button 
  500.  
  501.                          1) Draw the final vector,
  502.                               vector LENGTH proportional to magnitude.
  503.                               x & y displacements should be scaled 
  504.                               appropriately to produce Vx,Vy.
  505.  
  506.                          2) Update the velocity components
  507.                             of the appropriate mass.
  508.  
  509.                          NOTE: This will leave the vectors still
  510.                                on the screen. 
  511.  
  512.                                Thus when the user selects START ANIMATION
  513.                                in the menu, the screen is cleared.
  514.                        */
  515.  
  516.                         /* delete the old vector */
  517.                         Move(NoBorder->RPort,Xstart,Ystart);
  518.                         Draw(NoBorder->RPort,Xold,Yold);
  519.  
  520.                         /* draw the vector selected by the user */
  521.  
  522.                         SetDrMd(NoBorder->RPort,JAM1);
  523.                         SetAPen(NoBorder->RPort,1);
  524.                         Move(NoBorder->RPort,Xstart,Ystart);
  525.                         Draw(NoBorder->RPort,x,y); 
  526.  
  527.                         /* alter the velocity of that planet! */
  528.                         Vx[planetnumber] = x - Xstart ;
  529.                         Vy[planetnumber] = y - Ystart ;
  530.  
  531.                       break; 
  532.    }
  533. }      
  534. /* ======================================================================= */
  535. VOID GravityAttract(M1,M2,deltaX,deltaY,vx,vy)
  536. float M1,M2,deltaX,deltaY,*vx,*vy;
  537. {
  538. static float TimeStep;   /* This is the delta Time step */
  539. float F,
  540.       Fx,Fy,
  541.       r,ax,ay;
  542.  
  543. #define G 5000.0 
  544.  
  545.  
  546.       /* First compute the separation distance R between the */
  547.       /* 2 masses M1 and M2, where: 
  548.  
  549.          deltaX =  the X displacement between masses M1 & M2.
  550.          deltaY =  the Y displacement between masses M1 & M2. */
  551.  
  552. #ifdef DEBUG
  553.       printf("\nIn Gravity attract.\n");
  554.       printf("delx,dely = %f,%f\n",deltaX,deltaY);
  555.       printf("M1,M2 = %f,%f\n",M1,M2);
  556.       printf("Vx,Vy = %f %f \n",*vx,*vy);
  557. #endif
  558.          
  559.       r =  sqrt( (double) (deltaX*deltaX + deltaY*deltaY) ) ; 
  560.  
  561.       if (r < 2000 ) 
  562.          {
  563.            TimeStep = r * 0.04 + 1; 
  564.          }
  565.        else
  566.            TimeStep = 80.0;
  567.  
  568.       /* Next, compute the mutual force of attraction, F, between the */
  569.       /* 2 masses using the standard GRAVITY FORMULA */
  570.  
  571.       F =  G * M1 * M2/(r*r);
  572.  
  573.       /* Now as the force vector between the 2 masses is parallel to the */
  574.       /* displacement vector between them, we can use proportions */
  575.       /* and similar triangles to evaluate the the magnitude of the */
  576.       /* X and Y components of F relative to the displacements deltaX */
  577.       /* and deltaY. */
  578.  
  579.       Fx = F * deltaX/r;
  580.       Fy = F * deltaY/r;
  581.  
  582.       /* The resultant acceleration of MASS 1 can be found by using */
  583.       /* Newton's First Law  F = M * A .  */
  584.       /* 'TimeStep' appears in this equation as it is used in the */
  585.       /* evaluation of velocity later on.*/
  586.  
  587.       ax = TimeStep * Fx/M1;    
  588.       ay = TimeStep * Fy/M1;
  589.  
  590.       /* Use the equation: V2 = V1 + ACCELERATION * TIME   */
  591.  
  592.       /* NOTE: This equation is only valid for CONSTANT acceleration */
  593.       /*       however accln. is not constant in real life gravity problems. */
  594.       /*       In my program I use a relatively small delta Time */
  595.       /*       increments, sufficiently small enough such that my program */
  596.       /*       effectively integrates the changes in acceleration over time. */
  597.    
  598.       /*       The major problem with this theory is that when 2 planets */
  599.       /*       are very close to each other the mutual force increases by */
  600.       /*       an inverse square law and my program steps through time */
  601.       /*       too quickly at this stage and the result is that when the */
  602.       /*       masses pass each other they still have a large velocity */
  603.       /*       as there was not enough time intervals in which either */
  604.       /*       planet's velocity is reduced by force due to the the other.*/
  605.     
  606.       *vx += ax;
  607.       *vy += ay;
  608.  
  609. #ifdef DEBUG
  610.       printf("out of Gravity attract.\n");
  611. #endif
  612.  
  613. }
  614. /* ======================================================================== */
  615. VOID MovePlanets()
  616. { 
  617.  float x1,y1,
  618.        vx1,vy1,
  619.        xop,yop;
  620.                                         
  621.  int xpos,ypos ;              
  622.  WORD p,otherp;
  623.  USHORT class;
  624.  SHORT sx,sy;
  625.  ULONG code;
  626.  
  627. /* Store the initial values before we start ! */
  628.  
  629.   for (p=1 ; p<=6 ; p++ )
  630.     {
  631.      tempX[p] = X[p];  
  632.      tempY[p] = Y[p];   
  633.      tempMass[p] = Mass[p];    
  634.      tempVx[p] = Vx[p];   
  635.      tempVy[p] = Vy[p]; 
  636.     }  
  637.  
  638.  if (RECORD)
  639.    {
  640.      DisplayStats(frame);
  641.    }
  642.  
  643. while (COMPUTEANIM)
  644.   {
  645.    for( p=1 ;p <= 6 ;p++)
  646.     {
  647.        /* for all planets 1...6 */
  648.  
  649.       if (Mass[p] != 0)    /* if the planet is on the screen then */
  650.         {
  651.            /* Find the overall force on planet 'p' */
  652.            /* due to all other planets 'otherp' on the screen */
  653.            /* ie. all those with non-zero mass */
  654.  
  655.            for( otherp=1 ;otherp<= 6 ; otherp++)
  656.             {
  657.               if ((otherp != p) && (Mass[otherp] != 0))
  658.                 { 
  659.                  /* obtain the new Vx and Vy velocities ... */
  660.  
  661.                  GravityAttract(Mass[p],
  662.                                 Mass[otherp],
  663.                                 X[otherp]-X[p],Y[otherp]-Y[p],
  664.                                 &Vx[p],&Vy[p]);
  665.                 }
  666.             }
  667.  
  668.             /* Excuse the following code, it is a remnant from the days
  669.                when I used Aztec 3.4a, which got very upset with arrays
  670.                used in complex expressions. */
  671.  
  672.            X[p] += Vx[p];
  673.            Y[p] += Vy[p];
  674.  
  675.            xpos = X[p] / SCALE_FACTOR ;           /* 128 = SCALE_FACTOR */
  676.            ypos = Y[p] / SCALE_FACTOR ; 
  677.  
  678.             /* if the planet 'p' is not out of the screen range then move it */
  679.  
  680.            if ((xpos > spriteXMIN && xpos < spriteXMAX)  && (ypos > spriteYMIN && ypos < spriteYMAX))
  681.             {
  682.               sx = (SHORT)xpos;
  683.               sy = (SHORT)ypos;
  684.               /* If in record mode and not out of 
  685.                  film then record the position! */
  686.  
  687.               if ( (RECORD) &&  frame < FILMLENGTH )
  688.                 {
  689.                   MovieScreenX[frame] = sx;
  690.                   MovieScreenY[frame] = sy;
  691.                   MoviePlanet[frame] = p;
  692.                   frame++;    /* Advance recorder to the next frame */
  693.                 }
  694.  
  695.               MoveSprite(&MyScreen->ViewPort,&PlanetSprite[p],sx,sy);
  696.  
  697.               if (PLANETPATH)
  698.                 {
  699.                  if ((xpos > XMIN  && xpos < XMAX) &&  (ypos > YMIN && ypos < YMAX))
  700.                      /* Toggle the paths */
  701.                    {
  702.                      if (COLOURPATHS)
  703.                         SetAPen(NoBorder->RPort,((p % 4) ? p : 1));
  704.                          
  705.                      WritePixel(NoBorder->RPort,sx+6 ,sy+3);
  706.                    }
  707.                 }
  708.             }
  709.  
  710.         } /* end if */
  711.  
  712.     } /* end for loop */
  713.  
  714.     if ( RECORD  && (frame % 100 == 0) )  /* WARNING: leave the following { } in!! */
  715.                                           /* Display Stats is a MACRO!!! */
  716.         {
  717.           DisplayStats(frame);
  718.         }
  719.  
  720.    /* See if the user hit the STOP button!!! */
  721.  
  722.     while ( message=(struct IntuiMessage *) GetMsg(NoBorder->UserPort) )
  723.       {
  724.        
  725.         /* If a message was recieved .... */
  726.     
  727.        class = message->Class;       /* Store the message class! */
  728.        code = message->Code;         /* Store the code */
  729.        ReplyMsg(message);         
  730.        
  731.        if ( (class ==  MENUPICK) && (MENUNUM(code) != MENUNULL) )
  732.          { 
  733.            if ((MENUNUM(code) == ANIMATION_MENU) && (ITEMNUM(code) == STOPANIM_ITEM))
  734.              {  
  735.                COMPUTEANIM = FALSE;
  736.                break;
  737.              }
  738.          }
  739.      } /* end event while loop */
  740.  
  741.  } /* End While loop */
  742.  
  743.  if (RECORD) 
  744.   {
  745.     DisplayStats(frame);
  746.   }
  747. }
  748.  
  749. /* ======================================================================== */
  750. VOID MakePlanet(xpos,ypos)
  751. SHORT xpos,ypos;
  752. {
  753.    USHORT scanplanet,
  754.           freeplanet;
  755.  
  756.     PlanetNum++;  
  757.  
  758.    /* find a planet that is free to use ! */
  759.  
  760.    for(scanplanet = 1 ; scanplanet <= 6 ; scanplanet++)
  761.      {
  762.        if (Mass[scanplanet] == 0)   /* FOUND AN UNUSED PLANET! */
  763.          {
  764.            freeplanet = scanplanet;
  765.            break;   /* exit the loop as we have found it! */
  766.          }
  767.      }          
  768.  
  769.  
  770.    /* Display the sprite by moving that sprite into the viewing area  */
  771.    MoveSprite(&MyScreen->ViewPort,&PlanetSprite[freeplanet],xpos,ypos);
  772.  
  773.    Mass[freeplanet] = 20;      /* default mass of the planet */
  774.    X[freeplanet] = xpos * SCALE_FACTOR;
  775.    Y[freeplanet] = ypos * SCALE_FACTOR;
  776.    Vx[freeplanet] = 0;
  777.    Vy[freeplanet] = 0;
  778.  
  779. }
  780. /* ======================================================================== */
  781. VOID DeletePlanet(Number)
  782. SHORT Number;
  783. {
  784.  MoveSprite(&MyScreen->ViewPort,&PlanetSprite[Number],70*Number,550);
  785.  
  786.  Mass[Number] = 0;      /* ZERO the mass of the planet */
  787.                            /* This Deactivates a planet to ensure */
  788.                            /* it is not used in the gravity evaluation */
  789.  PlanetNum--;
  790. }
  791. /* ======================================================================== */
  792. PlanetTouched(xpos,ypos)
  793. SHORT xpos,ypos;
  794. {
  795.  USHORT delx,dely,num;
  796.  int planetfound = 0;
  797.  
  798.  /* Software collision routine to detect a collision between the pointer */
  799.  /* and a given mass at xpos,ypos. */
  800.  
  801.  for (num = 1; num <= 6; num++ )
  802.    {
  803.      delx = absolute( PlanetSprite[num].x + 4 - xpos );
  804.      dely = absolute( PlanetSprite[num].y + 4 - ypos ); 
  805.  
  806.      if (delx < 5 && dely < 5) 
  807.        {
  808.          planetfound = num;
  809.          break;
  810.        }
  811.  
  812.    }
  813.  
  814.  return(planetfound);
  815.  
  816. }
  817.  
  818. /* ======================================================================== */
  819.  
  820. VOID SetMass(pnum,x,y,stateflag)
  821. LONG pnum,x,y,stateflag;
  822.  
  823. {
  824.  static struct IntuiText mesg;
  825.  static char NewMassString[7], OldMassString[7];
  826.  static int Xdrw,Ydrw;
  827.  static float PlanetMass;
  828.  int i;
  829.  
  830.  switch(stateflag)
  831.    {
  832.      case StartCoord:   mesg.FrontPen = 1;
  833.                         mesg.BackPen = 0;
  834.                         mesg.DrawMode = COMPLEMENT;
  835.                         mesg.LeftEdge = 0;
  836.                         mesg.TopEdge = 0;
  837.                         mesg.ITextFont = NULL;
  838.                         mesg.IText = NULL;
  839.                         mesg.NextText = NULL;
  840.                         Xdrw = x + 7;   /* the coordinates of the string */
  841.                         Ydrw = y;
  842.                         PlanetMass = Mass[pnum];
  843.                         /* init old string to the mass of that planet */
  844.                         sprintf(OldMassString,"%d",(int)PlanetMass);
  845.                         mesg.IText = (UBYTE *) OldMassString;
  846.                         PrintIText(NoBorder->RPort,&mesg,Xdrw,Ydrw);
  847.                         break;
  848.  
  849.      case NewCoord:     /* erase old string .. */
  850.                         mesg.IText = (UBYTE *) OldMassString;
  851.                         WaitTOF();
  852.                         PrintIText(NoBorder->RPort,&mesg,Xdrw,Ydrw);
  853.  
  854.                         /* calculate the new mass size from the */
  855.                         /* current mouse Y- coords. */
  856.  
  857.                         PlanetMass = (absolute(Ydrw - y) + 0.8)/0.6 ;
  858.                         /* convert the float into a float string */
  859.                         sprintf(NewMassString,"%d",(int)PlanetMass);
  860.                         
  861.                         /* print new string .. */
  862.                         mesg.IText = (UBYTE *) NewMassString;
  863.                         WaitTOF();
  864.                         PrintIText(NoBorder->RPort,&mesg,Xdrw,Ydrw);
  865.  
  866.                         /* Save to old string */
  867.                         i = 0;
  868.                         while ( ( OldMassString[i] = NewMassString[i] ) != '\0')
  869.                              i++;
  870.  
  871.                         break;
  872.  
  873.      case EndCoord:     /* erase old string .. */
  874.                         mesg.IText = (UBYTE *) OldMassString;
  875.                         PrintIText(NoBorder->RPort,&mesg,Xdrw,Ydrw);
  876.  
  877.                         /* store the new mass for that planet */
  878.                         Mass[pnum] = PlanetMass;
  879.                         break;
  880.  
  881.        } 
  882.  
  883. }
  884. /* ======================================================================== */
  885. VOID PlayBack()
  886. {
  887.  SHORT Number,sx,sy;
  888.  int CurrentFrame,i,del;
  889.  struct SimpleSprite TempSprite[7]; /* Temp Sprite posns */
  890.  
  891.  ClrScreen();
  892.   
  893.  /* save current sprite positions before the animation */
  894.  
  895.  for (i = 1 ; i < 7 ; i++ )
  896.      TempSprite[i] = PlanetSprite[i];
  897.  
  898.  /* REPLAY the ANIMATION! ... */
  899.  
  900.  for ( CurrentFrame = 0 ; CurrentFrame < frame ; CurrentFrame++ )
  901.    {
  902.      /* do the delay as requested by the user */
  903.      for( del = 0 ; del < DelayFactor ; del++);
  904.         
  905.  
  906.      Number = MoviePlanet[CurrentFrame];
  907.      sx = MovieScreenX[CurrentFrame];
  908.      sy = MovieScreenY[CurrentFrame];
  909.  
  910.      MoveSprite(&MyScreen->ViewPort,&PlanetSprite[Number],sx,sy);
  911.  
  912.      if (PLANETPATH)     /* Toggle the paths */
  913.        {
  914.         if (COLOURPATHS)
  915.           SetAPen(NoBorder->RPort,((Number % 4) ? Number : 1));
  916.         WritePixel(NoBorder->RPort,sx+6,sy+3);
  917.        }
  918.    }    
  919.  
  920.  /* Restore old current sprite positions before the animation */
  921.  
  922.  for (i = 1 ; i < 7 ; i++ )
  923.     {
  924.       sx = TempSprite[i].x;
  925.       sy = TempSprite[i].y;
  926.       MoveSprite(&MyScreen->ViewPort,&PlanetSprite[i],sx,sy);
  927.     }   
  928.  
  929. }
  930. /* ======================================================================== */
  931. VOID ResetValues()
  932. {
  933.  int p,sx,sy;
  934.   
  935.  /* Restore all planets to the states they were in BEFORE the last */
  936.  /* animation was computed. */
  937.  
  938.  ClrScreen();
  939.  
  940.   for (p=1 ; p<=6 ; p++ )
  941.     {
  942.      if (Mass[p])
  943.        { 
  944.         sx = X[p] = tempX[p] ;  
  945.         sy = Y[p] = tempY[p] ;  
  946.         MoveSprite(&MyScreen->ViewPort,&PlanetSprite[p],sx/SCALE_FACTOR,sy/SCALE_FACTOR);
  947.         Mass[p] = tempMass[p] ;    
  948.         Vx[p] = tempVx[p] ;   
  949.         Vy[p] = tempVy[p] ; 
  950.        }  
  951.     }
  952. }
  953. /* ======================================================================== */
  954. VOID TotalReset()
  955. {
  956.  int p;
  957.  
  958.  ClrScreen();
  959.  
  960.  for (p= 1 ; p <= 6; p++ )
  961.   {
  962.    Mass[p] = 0;
  963.    Vx[p] = 0;
  964.    Vy[p] = 0;
  965.    MoveSprite(&MyScreen->ViewPort,&PlanetSprite[p],p*50,600);
  966.   }
  967.  PlanetNum = 0;
  968. }
  969. /* ======================================================================== */
  970. char *GetFilename()
  971. {
  972.   int j,looping = TRUE;
  973.   struct IntuiMessage *mes;
  974.   ULONG class;
  975.   static char filename[30];
  976.  
  977.   while (looping)
  978.   {
  979.     if ( (mes = (struct IntuiMessage *) GetMsg(NoBorder->UserPort) ) == 0L)
  980.       {
  981.         Wait(1L<<NoBorder->UserPort->mp_SigBit);
  982.         continue;
  983.       }
  984.      class = mes->Class;        
  985.      ReplyMsg(mes);
  986.      if (class == REQCLEAR)
  987.        looping = FALSE;
  988.    }
  989.   j = 0;
  990.   strcpy(filename,StringGadSIBuff);
  991.   while (filename[j] != 0)
  992.     {
  993.       if (filename[j] == '.') 
  994.          break;
  995.        j++;
  996.     }
  997.   filename[j] = 0;
  998.  
  999.   if (strlen(filename) != 0)
  1000.     strcat(filename,".GSim");
  1001.  
  1002.   return(filename);
  1003. }
  1004. /* ======================================================================== */
  1005. VOID LoadFile()
  1006. {
  1007.  FILE *fopen(), *fp;
  1008.  int i;
  1009.  SHORT sx,sy;
  1010.  char *filename;
  1011.  
  1012.   /* Obtain the filename the user typed into the string gadget */
  1013.  filename = GetFilename();
  1014.  
  1015.  if ((fp = fopen(filename,"r")) != NULL)     /* prepare to read the data file */
  1016.    {
  1017.      /* if everything is OK... */
  1018.      ClrScreen();
  1019.      TotalReset();   /* clear everything */
  1020.       
  1021.      /* read in the X & y coordinates of the planets */ 
  1022.  
  1023.      for (i=1; i <= 6; i++)
  1024.           fscanf(fp,"%f%f",&X[i],&Y[i]);
  1025.  
  1026.      for (i=1; i <= 6; i++)
  1027.          fscanf(fp,"%f%f",&Vx[i],&Vy[i]);
  1028.  
  1029.      for (i=1; i <= 6; i++)
  1030.         {
  1031.           fscanf(fp,"%f",&Mass[i]);
  1032.           if (Mass[i]) PlanetNum++;
  1033.         }
  1034.      fclose(fp);
  1035.         
  1036.      /* Re-position the sprites on the screen */
  1037.         
  1038.      for (i=1; i<=6 ; i++)
  1039.        {
  1040.          sx = X[i]/SCALE_FACTOR;
  1041.          sy = Y[i]/SCALE_FACTOR;
  1042.          MoveSprite(&MyScreen->ViewPort,&PlanetSprite[i],sx,sy);
  1043.         }
  1044.    }
  1045.   else
  1046.     DisplayBeep(MyScreen);  /* there was an error do a display beep ! */
  1047. }
  1048. /* ======================================================================== */
  1049. VOID SaveFile()
  1050. {
  1051.  FILE *fopen(), *fp;
  1052.  char *filename;
  1053.  int i;
  1054.  
  1055.  filename =  GetFilename();
  1056.  
  1057.  /* Obtain the filename the user typed into the string gadget */
  1058.  /* prepare to read the data file */
  1059.  
  1060.  if ((fp = fopen(filename,"w")) != NULL )     
  1061.    {
  1062.      /* if everything is OK... */
  1063.  
  1064.      /* read in the X & y coordinates of the planets */ 
  1065.  
  1066.      for (i=1; i <= 6; i++)
  1067.          fprintf(fp,"%f\t%f\n",X[i],Y[i]);
  1068.  
  1069.      for (i=1; i <= 6; i++)
  1070.          fprintf(fp,"%f\t%f\n",Vx[i],Vy[i]);
  1071.  
  1072.      for (i=1; i <= 6; i++)
  1073.          fprintf(fp,"%f\n",Mass[i]);
  1074.         
  1075.      fclose(fp);
  1076.    }
  1077.   else
  1078.     DisplayBeep(MyScreen);  /* there was an error do a display beep ! */
  1079.  
  1080. }
  1081. /* ======================================================================== */
  1082. static VOID domenu(menu, item, subitem)
  1083. USHORT menu, item, subitem;
  1084. {
  1085.   PLACEPLANET = FALSE;
  1086.   REMOVEPLANET = FALSE;
  1087.   SETVELOCITY = FALSE;
  1088.   SETMASS = FALSE;
  1089.  
  1090.   switch(menu)
  1091.    {
  1092.      case PROJECT_MENU :
  1093.          {
  1094.           switch (item) 
  1095.             {
  1096.              case  NEW_ITEM:   TotalReset();
  1097.                                MakePlanet(320,256);
  1098.                                break;
  1099.  
  1100.              case  LOAD_ITEM:  if ((Request(&RequesterStructure2,NoBorder)) == 1)
  1101.                                  LoadFile();
  1102.                                else
  1103.                                  printf("CANNOT OPEN REQUESTER!!\n");
  1104.                                break;
  1105.  
  1106.              case  SAVE_ITEM:  if ((Request(&RequesterStructure2,NoBorder)) == 1)
  1107.                                  SaveFile();
  1108.                                else
  1109.                                  printf("CANNOT OPEN REQUESTER!!\n");
  1110.                                break;
  1111.  
  1112.              case  QUIT_ITEM:    CloseUpShop();
  1113.                                  printf("Thats all Folks!!!\n");
  1114.                                  printf("Have a nice day.\n");
  1115.                                  exit(0); 
  1116.                                  break;
  1117.             } 
  1118.  
  1119.          }break;
  1120.  
  1121.      case PLANETS_MENU : 
  1122.          {  
  1123.           switch(item)
  1124.             {
  1125.               case PLACEPLANET_ITEM:  PLACEPLANET = TRUE;
  1126.                                       break;
  1127.  
  1128.               case REMOVEPLANET_ITEM: REMOVEPLANET = TRUE;
  1129.                                       break;
  1130.  
  1131.               case SETVELOCITY_ITEM: SETVELOCITY = TRUE;
  1132.                                      SetAPen(NoBorder->RPort,PenColour);
  1133.                                      break;
  1134.  
  1135.               case SETMASS_ITEM:  SETMASS = TRUE;
  1136.                                   break;
  1137.  
  1138.               case PATHS_ITEM:  switch(subitem) {
  1139.                                   case 0: PLANETPATH = TRUE;
  1140.                                           break;
  1141.  
  1142.                                   case 1: PLANETPATH = FALSE;
  1143.                                           break;
  1144.  
  1145.                                   case 2: COLOURPATHS = TRUE;
  1146.                                           break;
  1147.  
  1148.                                   case 3: COLOURPATHS = FALSE;
  1149.                                           SetAPen(NoBorder->RPort,PenColour);
  1150.                                           break;
  1151.                                 }
  1152.                                 break;
  1153.  
  1154.             }
  1155.          }break;
  1156.  
  1157.      case ANIMATION_MENU : 
  1158.          {  
  1159.           switch(item)
  1160.             {
  1161.               case STARTANIM_ITEM:  
  1162.                                     ClrScreen();
  1163.                                     COMPUTEANIM = TRUE;
  1164.                                     MovePlanets();
  1165.                                     break;
  1166.  
  1167.               case STOPANIM_ITEM: 
  1168.                                   COMPUTEANIM = FALSE;
  1169.                                   break;
  1170.  
  1171.               case RESTARTANIM_ITEM: 
  1172.                                      /* RESET VALUES */
  1173.                                      ResetValues();
  1174.                                     break;
  1175.             }
  1176.          }break;
  1177.  
  1178.      case RECORDER_MENU : 
  1179.          {  
  1180.           switch(item)
  1181.             {
  1182.               case RECORDER_ON_ITEM:  RECORD = TRUE;
  1183.                                       DisplayStats(frame);
  1184.                                       frame = 0;
  1185.                                       break;
  1186.  
  1187.               case RECORDER_OFF_ITEM: RECORD = FALSE;
  1188.                                       RestoreTitle();                                     
  1189.                                       break;
  1190.  
  1191.               case PLAYBACK_ITEM:    PlayBack();
  1192.                                      break;
  1193.  
  1194.               case PLAYBACKSPEED_ITEM:  switch (subitem) 
  1195.                                          {
  1196.                                            case 0:  DelayFactor = 0;
  1197.                                                     break;
  1198.  
  1199.                                            case 1:  DelayFactor = 100;
  1200.                                                     break;
  1201.  
  1202.                                            case 2:  DelayFactor = 300;
  1203.                                                     break;
  1204.                                          }
  1205.             }
  1206.          }
  1207.    } /* end switch */
  1208.   
  1209. }
  1210. /* ============================ MAIN PROGRAM =========================== */
  1211. main ()
  1212. {
  1213.  BOOL MouseMoved = FALSE,
  1214.       PenDown = FALSE,
  1215.       HitPlanet= FALSE;
  1216.  
  1217.  
  1218.  USHORT class;          /*Message class from Intuition */
  1219.  ULONG code;            /*Menu code from Intuition */
  1220.  SHORT x,y,
  1221.        PlanetNumber;
  1222.  
  1223.  
  1224.  VOID OpenAll(),SetUpFrontEnd(),CloseUpShop(),
  1225.       domenu(),
  1226.       MakePlanet(),DeletePlanet(),MovePlanets(),
  1227.       SetVelocityVector(),
  1228.       SetMass();
  1229.  
  1230.  
  1231.  
  1232.  
  1233.  OpenAll();     /*  Open GfxBase & Intuition   */
  1234.  SetUpFrontEnd();  /* Initialize Screens, Windows, Menus, SPRITES etc.  */
  1235.  MakePlanet(100,256);
  1236.  MakePlanet(400,256);
  1237.  
  1238.  
  1239.  
  1240.                         /*    MAIN PROGRAM MAJOR LOOP!    */ 
  1241.  
  1242.  
  1243.  
  1244.  for (;;)   /* INFINITE LOOP!! */
  1245.  {
  1246.   Wait(1L << NoBorder->UserPort->mp_SigBit);  /* Wait until a signal occurs */
  1247.   MouseMoved= FALSE;
  1248.   
  1249.   while( message=(struct IntuiMessage *) GetMsg(NoBorder->UserPort) )
  1250.     {
  1251.       /* If a message was recieved .... */
  1252.  
  1253.       class = message->Class;       /* Store the message class! */
  1254.       code = message->Code;         /* Store the code */
  1255.       x = NoBorder->MouseX;         /* Store away the mouse positions */
  1256.       y = NoBorder->MouseY;
  1257.  
  1258.       ReplyMsg(message);      /* And all importantly, TELL INTUITION 
  1259.                                 THAT YOU RECEIVED IT!!  */
  1260.                               /* So that the message port can be cleared! */
  1261.   
  1262.  
  1263.      /* Here is the 'case' statement which SORTS OUT all incoming MESSAGES */
  1264.  
  1265.            
  1266.      switch (class)
  1267.      {            
  1268.  
  1269.               /* HANDLE ALL EVENTS THAT INTUITION PASSES TO ME */
  1270.  
  1271.       case  MOUSEMOVE :  MouseMoved = TRUE;
  1272.                          break; 
  1273.                              
  1274.       case  MENUPICK :   if (MENUNUM(code) != MENUNULL)
  1275.                            domenu(MENUNUM(code),ITEMNUM(code),SUBNUM(code));
  1276.                          break;
  1277.                          
  1278.                          /* If Left Mouse Button Pressed then it could
  1279.                             be meant for either:
  1280.                                 
  1281.                                 1:  1st position (x,y) in placing planet
  1282.                                 2:  coord (x,y) of a planet to be deleted
  1283.                                
  1284.                                 Thus the Action Mode Flags sort this
  1285.                                 out appropriately
  1286.                              */     
  1287.  
  1288.       case  MOUSEBUTTONS: if (code == SELECTDOWN) 
  1289.                            {  
  1290.                              PenDown = TRUE;
  1291.                              if (PLACEPLANET)
  1292.                               {
  1293.                                 if (PlanetNum < 6)
  1294.                                       MakePlanet(x,y);
  1295.                                 else
  1296.                                   DisplayBeep(MyScreen);
  1297.                               }
  1298.                              else
  1299.                                if (REMOVEPLANET)
  1300.                                  {
  1301.                                   /* Now check for a collision with */
  1302.                                   /* the intuition pointer... */
  1303.                                   /* if there was a collision ... */
  1304.  
  1305.                                   if (PlanetNum > 1) 
  1306.                                     {
  1307.                                      if ( (PlanetNumber = PlanetTouched(x,y)) != 0)
  1308.                                            DeletePlanet(PlanetNumber);
  1309.                                     }
  1310.                                   else DisplayBeep(MyScreen);
  1311.                                  }
  1312.                              else
  1313.                                if (SETVELOCITY)
  1314.                                  {
  1315.                                   if ( (PlanetNumber = PlanetTouched(x,y)) != 0)
  1316.                                     {
  1317.                                      HitPlanet = TRUE;
  1318.                                      SetDrMd(NoBorder->RPort,COMPLEMENT);
  1319.                                      SetVelocityVector(PlanetNumber,x,y,StartCoord);
  1320.                                     }
  1321.                                  }
  1322.                              else
  1323.                                if (SETMASS)
  1324.                                  {
  1325.                                   if ( (PlanetNumber = PlanetTouched(x,y)) != 0)
  1326.                                     {
  1327.                                      HitPlanet = TRUE;
  1328.                                      SetMass(PlanetNumber,x,y,StartCoord); 
  1329.                                     }
  1330.                                  }
  1331.  
  1332.                           } /* end 'if code == selectdown' */
  1333.  
  1334.                         else if (code == SELECTUP)
  1335.                                {
  1336.                                  PenDown= FALSE;
  1337.                                  if ((SETVELOCITY) && (HitPlanet))
  1338.                                    {
  1339.                                      SetVelocityVector(PlanetNumber,x,y,EndCoord);
  1340.                                      HitPlanet = FALSE;
  1341.                                    }
  1342.                                 else
  1343.                                  if ((SETMASS) && (HitPlanet))
  1344.                                    {
  1345.                                      SetMass(PlanetNumber,x,y,EndCoord);
  1346.                                      HitPlanet = FALSE;
  1347.                                    }
  1348.                                }
  1349.                         break;
  1350.  
  1351.        }/* end Switch */
  1352.  
  1353.     } /*end While Loop */
  1354.  
  1355.     if (MouseMoved)
  1356.       {
  1357.        if (PenDown)     /* if LEFT mouse button DOWN */
  1358.          {
  1359.            if (HitPlanet)
  1360.              {
  1361.               if (SETVELOCITY)     /* and in SET VELOCITY MODE ..*/        
  1362.                 SetVelocityVector(PlanetNumber,x,y,NewCoord);
  1363.               else
  1364.                 if (SETMASS)
  1365.                   SetMass(PlanetNumber,x,y,NewCoord);
  1366.              }
  1367.          }
  1368.       }
  1369.         
  1370.  
  1371.  }/* end infinite FOR LOOP */
  1372.  
  1373. } /* THATS ALL FOLKS! */
  1374.  
  1375.  
  1376.    
  1377.  
  1378.   
  1379.